home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / Codice / CRobots / Codice Robot anni precedenti / CR1-SRC.ZIP / BLADE3.R next >
Encoding:
Text File  |  1991-12-03  |  1.0 KB  |  71 lines
  1. /*  blade3.r     (super-fast)       */
  2. /*  by Ugolini Davide   Cesena (FO) */
  3.  
  4. int    range, dr, scdir;
  5.  
  6. main() 
  7. { 
  8.     drive(180, 100); 
  9.     while (loc_x() > 100) 
  10.         fire();
  11.     drive(180,  0); 
  12.     while (speed() >  0) 
  13.         fire();
  14.     drive( 90, 100); 
  15.     while (loc_y() < 500) 
  16.         fire();
  17.     drive( 90,  0); 
  18.     while (speed() >  0) 
  19.         fire();
  20.     drive(270, 100); 
  21.     while (loc_y() > 500) 
  22.         fire();
  23.     drive(270,  0); 
  24.     while (speed() >  0) 
  25.         fire();
  26.     scdir = 0; 
  27.     dr = 45; 
  28.     drive(dr, 100);     
  29.     fire();
  30.     while (1) { 
  31.         while (loc_y() < 850) 
  32.             fire(); 
  33.         vira();
  34.         while (loc_x() < 850) 
  35.             fire(); 
  36.         vira();
  37.         while (loc_y() > 150) 
  38.             fire(); 
  39.         vira();
  40.         while (loc_x() > 150) 
  41.             fire(); 
  42.         vira(); 
  43.     } 
  44. }
  45.  
  46.  
  47. vira() 
  48. { 
  49.     while (speed() > 50) 
  50.         drive(dr, 0);
  51.     dr -= 90; 
  52.     if (dr < 0) 
  53.         dr = 360 + dr;   
  54.     drive(dr, 100); 
  55. }
  56.  
  57.  
  58. fire() 
  59. { 
  60.     scdir += 20; 
  61.     if (scdir > 359) 
  62.         scdir -= 360;
  63.     range = scan(scdir, 10);
  64.     if (range) { 
  65.         cannon(scdir, range); 
  66.         scdir += 285; 
  67.     } 
  68. }
  69.  
  70.  
  71.